home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-11_2002_CSW_Side_B.d64 / calculate sintab (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  146b  |  9 lines
  1. 10 tb=19712
  2. 50 my=16384/sqr(3)-48
  3. 100 foran=0to2*(NULL)step2*(NULL)/256
  4. 200 x=sin(an)*my
  5. 300 y=xand255:poketb,y
  6. 400 y=x/256:ifx<0theny=y+256
  7. 500 poketb+512,y
  8. 600 tb=tb+1:next
  9.